home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / os2 / ftree11a.zip / IMCONTUE.FTX < prev    next >
Text File  |  1996-10-30  |  3KB  |  89 lines
  1. /*
  2.    Family Tree Rexx Script FTX
  3.  
  4.    Copyright (C) 1996 by <Nils Meier>
  5.  
  6.    Please send comments to / Kommentar bitte an
  7.         meier2@athene.informatik.uni-bonn.de
  8.  
  9.    <
  10.    English:   This script continues import, if there were persons left from last import. :English
  11.    Deutsch:   Dieses Skript setzt den Import fort, wenn Personen vom letzten Import
  12.               übriggeblieben sind.                                                       :Deutsch
  13.    Nederlands:This script continues import, if there were persons left from last import. :Nederlands
  14.    Francais:  Ce script active l'import, si des personnes ont été laissées de côté lors  :Francais
  15.               du dernier import.
  16.    >
  17.  
  18.    Long name is <
  19.                  English:    Continue Import            :English
  20.                  Deutsch:    Import fortsetzen          :Deutsch
  21.                  Nederlands: Continue Import            :Nederlands
  22.                  Francais:   Active le dernier import   :Francais
  23.                 >
  24. */
  25.  
  26. cr = '0a'x
  27.  
  28. CALL initLanguage
  29.  
  30. /* ----------------- Display Header / Kopf der Ausgabe ------------- */
  31. head=msg.header.LANG||DATE()
  32. SAY(head)
  33. SAY(COPIES('=',length(head)))
  34. SAY('')
  35.  
  36. /* ----------------- Do the Import / Importieren ------------------ */
  37.  
  38. SAY(msg.importstart.LANG)
  39.  
  40. result=importDone()
  41.  
  42. IF (result='') THEN
  43.    SAY(msg.error.LANG)
  44. ELSE
  45.    SAY(result)
  46.  
  47. SAY
  48. SAY(msg.done.LANG)
  49.  
  50. EXIT
  51.  
  52.  
  53. /* ---------------------- LANGUAGE INIT --------------------------- */
  54. InitLanguage:
  55.  
  56.    /* Calculate Language Index */
  57.    lang='E'                              /* Default -> [E]nglish */
  58.    IF getLanguage()='Deutsch' THEN       /* Deutsch -> [G]erman */
  59.       lang='G'
  60.    IF getLanguage()='Nederlands' THEN    /* Nederlands -> [D]utch */
  61.       lang='D'
  62.    IF getLanguage()='Francais' THEN       /* Francais -> [F]rench */
  63.       lang='F'
  64.  
  65.    /* [E]nglish Messages */
  66.    msg.header.E      = 'Importing from GEDCOM-file :'
  67.    msg.done.E        = 'Done !'
  68.    msg.importstart.E = 'Starting Calculation of family tree !'cr'First person in GEDCOM-file becomes Origin :'
  69.    msg.error.E       = 'No data to import !'
  70.  
  71.    /* [G]erman Messages */
  72.    msg.header.G      = 'Importieren von GEDCOM-Daten :'
  73.    msg.done.G        = 'Fertig !'
  74.    msg.importstart.G = 'Starte jetzt Berechnung des Stammbaumes !'cr'Die erste Person aus der GEDCOM-Datei wird Ursprung :'
  75.  
  76.    /* [D]utch Messages */
  77.    msg.header.D      = 'Importing from GEDCOM-file :'
  78.    msg.done.D        = 'Done !'
  79.    msg.importstart.D = 'Starting Calculation of family tree !'cr'First person in GEDCOM-file becomes Origin :'
  80.  
  81.    /* [F]rench Messages */
  82.    msg.header.F      = "Import de GEDCOM-file :"
  83.    msg.done.F        = "Fait !"
  84.    msg.importstart.F = "Début de Calcul de l'arbre généalogique !"cr"La Première personne dans le fichier GEDCOM est considérée comme Origine :"
  85.  
  86.    /* Done */
  87.    RETURN
  88.  
  89.